home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / internet / mcoach20.zip / sample.sc_ / sample.sc
Text File  |  1996-09-11  |  2KB  |  71 lines
  1. ;Mailcoach Script sample
  2.  
  3. ;----------------------------------------------------------------------
  4. ;Note: This script is compatible with the remote access script
  5. ;used by Windows 95. The following operators/commands are not supported.
  6. ;Operators:     !, AND, OR
  7. ;Commands :     GETIP, SET PORT XXXX, SET SCREEN XXXX, SET IPADDR, 
  8. ;        WHILE, DO, ENDWHILE
  9.  
  10. ;----------------------------------------------------------------------
  11. ;Available system variables:
  12. ;$UserId            Contains the login userID    (Use if double login req)
  13. ;$Password        Contains the login password    (-"-)
  14. ;$UUCPLogin        Contains the UUCP login name
  15. ;$UUCPPassword        Contains the UUCP login password
  16. ;$RemoteHostname    Name of the remote systems uucp name
  17. ;$LocalHostname        Our local UUCP name
  18. ;
  19. ;$Success        Set to TRUE if operation is successful
  20. ;$Failure            Set to TRUE if operation is unsuccessful
  21.  
  22. ;TRUE            -1
  23. ;FALSE            0
  24. ;----------------------------------------------------------------------
  25.     Proc            ;Beginning of procedure
  26.  
  27.     Integer    Retries=3        ;Integer variable Declaration
  28.                 ;Number of retries
  29.  
  30.  
  31. Again:    ;-- Send CR to clear up --
  32.     Transmit "^M"        ;Send a "Carriage return"
  33.     Delay     1        ;Wait one second
  34.  
  35.     Waitfor "ogin:" until 10    ;Wait for a part of "Login:". if 
  36.                 ;not received within 10 seconds,
  37.                 ;the system variable $Failure 
  38.                 ;is set and the program continues.
  39.  
  40.     if $Failure then        ;If $Failure is set...
  41.     goto Error            ;... then goto label "Error"
  42.     endif
  43.     Transmit $Uucplogin+"^M"    ;Transmit the system variable
  44.                 ;$Uucplogin (which contains the
  45.                 ;"Login name" you have setup)
  46.                 ;and a carriage return.
  47.     Waitfor "sword:" until 10
  48.     if $Failure then
  49.     goto Error
  50.     endif
  51.     Transmit $UucpPassword+"^M"
  52.  
  53.     goto Done    
  54.  
  55. ;------ Retry 3-times ------
  56. Error:    beep
  57.     Retries=Retries-1        ;Decrease the Retry variable
  58.     if Retries>0 then          ;If it have reached zero,
  59.     goto Again        ;we jump to the label "Again"
  60.     endif
  61.                 ;Three Retries has been done.
  62.     halt            ;Stop the script and quit this
  63.                 ;session.
  64.  
  65. ;----- Now we are done! -----
  66. done:                ;When reached here, the UUCP
  67.                 ;takes over the rest of
  68.                 ;login negotiations.
  69.  
  70.     Endproc            ;End of procedure
  71.